home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / life expectan.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  119 lines
  1. 10 GOTO1000
  2. 100 POKE162,0:WAIT162,64:POKE198,0:PRINT"[150]ANSWER:[146][155]    [157][157][157]";
  3. 102 POKE204,0:M$=""
  4. 105 WAIT198,1:GETG$
  5. 110 IFMANDG$="Y"THENPRINT"YES":GOTO190
  6. 120 IFMANDG$="N"THENPRINT"NO":M=0:GOTO190
  7. 130 IFMTHEN105
  8. 140 M=ASC(G$):IFM=13THENM=VAL(M$):GOTO190
  9. 150 IFM=20ANDM$>""THENPRINT" [157][157] [157]";:M$=LEFT$(M$,LEN(M$)-1)
  10. 160 IFM>57ORM<48THEN180
  11. 170 M$=M$+G$:PRINTG$;
  12. 180 WAIT198,1:GETG$:GOTO140
  13. 190 POKE204,1:POKE162,0:PRINT" [158]":WAIT162,64:RETURN
  14. 1000 POKE53280,9:POKE53281,9
  15. 1002 PRINT"[147][142]    [165] [165][207] [207]    [207] [205][206] [207][165][207] [207] [208][183][206][205][167][205] [165][207] [205][206]
  16. 1003 [153]"    (null) FN(null) (null)    (null) (null)(null) (null) (null) (null) THEN (null)(null)THEN (null)FN(null) THENFN
  17. 1004 PRINT"         [163]    [163]      [163]
  18. 1006 [153],"SYS      BY
  19. 1007 PRINT,"STEVEN DARNOLD
  20. 1008 [153],"P.O. BOX 201
  21. 1009 PRINT,"ALEXANDRA, NEW ZEALAND
  22. 1010 [129]I[178]1[164]6000:[130]
  23. 1015 [153]"LOADCHR$REETINGS.  SYSRIGHT$ AM GOING TO ASK YOU SOME
  24. 1020 PRINT"QUESTIONS ABOUT YOURSELF.  [212]HEN, ON THE
  25. 1030 [153]"BASIS OF YOUR ANSWERS, RIGHT$ WILL PREDICT
  26. 1040 PRINT"HOW MANY YEARS YOU WILL LIVE.
  27. 1050 [129]I[178]1[164]8000:[130]
  28. 1060 [153]"LOADLEFT$OW OLD ARE YOU?":[141]100:A[178]M
  29. 1070 [153]"LOADATNRE YOU FEMALE?":M[178]1:[141]100:S[178]M
  30. 1080 [153]"LOADATNRE YOU A (null)AORI?":M[178]1:[141]100:R[178]M
  31. 1090 [153]"LOADLEFT$OW MANY MINUTES OF VIGOROUS EXERCISE
  32. 1100 PRINT"DO YOU HAVE IN A NORMAL WEEK?
  33. 1110 [153]"((null)(null)(null)VAL:  GOLF, BOWLS AND GARDENING ARE
  34. 1120 PRINT" NOT[157][157][157][163][163][163][145] VIGOROUS ENOUGH TO COUNT)":M=0:GOSUB100:T=200:M=M/15-1
  35. 1130 IFM>9THENM=9
  36. 1140 T=T+M*3
  37. 1150 PRINT"[147][200]OW MANY HOURS OF SLEEP DO YOU NORMALLY
  38. 1160 [153]"GET EACH NIGHT?":M[178]0:[141]100:[139]M[177]6[175]M[179]10[167]T[178]T[170]4
  39. 1170 [153]"LOADRIGHT$F YOU COULD MAGICALLY LOSE WEIGHT, HOW"
  40. 1180 [153]"MANY POUNDS WOULD YOU LIKE TO LOSE?":M[178]0:[141]100:M[178](M[171]5)[173]2.5
  41. 1190 [139]M[177]20[167]M[178]20
  42. 1200 T[178]T[171]M
  43. 1210 [153]"LOADSTR$O YOU EAT LOTS OF FRESH FRUIT AND","VEGETABLES?":M[178]1:[141]100:T[178]T[170]M[172]6
  44. 1220 [153]"LOADSTR$O YOU OFTEN HAVE FRIED FOOD  ","(EGGS, CHIPS, MEAT, ETC.)?
  45. 1230 M=1:GOSUB100:IFM=0THENT=T+8
  46. 1240 PRINT"[147][196]O YOU SMOKE A PIPE?":M=1:GOSUB100:T=T-M*4
  47. 1250 PRINT"[147][207]N THE AVERAGE, HOW MANY CIGARETTES"
  48. 1260 PRINT"(OR CIGARS) DO YOU SMOKE PER DAY?":M=0:GOSUB100:IFMTHENM=M+22:C=M
  49. 1270 T=T-M/3
  50. 1280 PRINT"[147][207]N THE AVERAGE, HOW MANY DRINKS DO YOU
  51. 1290 [153]"HAVE PER DAY?
  52. 1295 PRINT"[129]   [206][207][212][197]:  1 DRINK = 1 BOTTLE OF BEER[150][157][157][157][157][157][157][157][157][157]OR
  53. 1297 [153][163]20)"FOR1 NIP OF SPIRITSDEFCMDCMDCMDCMDCMDCMDCMDCMDCMDOR
  54. 1300 PRINTTAB(20)"[129]1 GLASS OF WINE":M=0:GOSUB100:T=T-4*ABS(M-1)
  55. 1310 PRINT"[147][200]AVE YOU HAD A TETANUS INJECTION IN THE
  56. 1320 [153]"PAST 10 YEARS?":M[178]1:[141]100:T[178]T[171]4[170]M[172]4
  57. 1330 [153]"LOADRIGHT$N THE LAST FOUR TIMES YOU WERE IN AN
  58. 1340 PRINT"AUTOMOBILE, HOW MANY OF THOSE TIMES DID
  59. 1350 [153]"YOU USE THE SEAT BELT?":M[178]0:[141]100:[139]M[177]4[167]1330
  60. 1360 T[178]T[170]M[172]2
  61. 1370 [139]S[178]0[167]1500
  62. 1380 [153]"LOADLEFT$AVE YOU HAD A HYSTERECTOMY?":M[178]1:[141]100:[139]M[167]1500
  63. 1390 [153]"LOADLEFT$AVE YOU HAD A TUBAL LIGATION?":M[178]1:[141]100:[139]M[167]1500
  64. 1400 [153]"LOADLEFT$AVE YOU REACHED MENOPAUSE?":M[178]1:[141]100:[139]M[167]1500
  65. 1410 [153]"LOADATNRE YOU PRESENTLY USING BIRTH CONTROL
  66. 1420 PRINT"PILLS?":M=1:GOSUB100:IFMANDC>2THENT=T-10
  67. 1425 IFMANDA<36THENT=T+4
  68. 1430 PRINT"[147][201]F BEARING A CHILD WERE TO ENDANGER YOUR
  69. 1440 [153]"HEALTH, WOULD YOU HAVE AN ABORTION?":M[178]1:[141]100:T[178]T[171]5[170]M[172]6
  70. 1450 [153]"LOADSTR$ID YOU BEGIN REGULAR SEXUAL ACTIVITY
  71. 1460 PRINT"BEFORE AGE 18?":M=1:GOSUB100:T=T-M
  72. 1500 PRINT"[147][200]AVE YOU BEEN IN CLOSE CONTACT FOR A
  73. 1510 [153]"YEAR OR MORE WITH SOMEONE HAVING
  74. 1520 PRINT"TUBERCULOSIS?":M=1:GOSUB100:T=T-M*4
  75. 1530 PRINT"[147][200]AVE YOU HAD RADIATION (X-RAY) TREATMENT
  76. 1540 [153]"OF TONSILS, ADENOIDS, ACNE OR RINGWORM?":M[178]1:[141]100:T[178]T[171]M[172]6
  77. 1550 [153]"LOADSTR$O YOU REGULARLY WORK WITH ASBESTOS?":M[178]1:[141]100:T[178]T[171]M[172]2
  78. 1555 [139]M[175]C[167]T[178]T[171]8
  79. 1560 [153]"LOADSTR$O YOU REGULARLY WORK WITH VINYL","CHLORIDE?":M[178]1:[141]100:T[178]T[171]M[172]4
  80. 1570 [153]"LOADSTR$O YOU LIVE IN A CITY?":M[178]1:[141]100:T[178]T[171]M[172]6
  81. 1580 [153]"LOADLEFT$AVE YOU HAD SEXUAL ACTIVITY WITH MORE
  82. 1590 PRINT"THAN TEN DIFFERENT PARTNERS?":M=1:GOSUB100:T=T-M:IFSANDMTHENT=T-1
  83. 1600 PRINT"[147][193]RE YOU A WIDOW?";:IFS=0THENPRINT"[157]ER?";
  84. 1610 PRINT:M=1:GOSUB100:T=T-M
  85. 1620 PRINT"[147][215]ERE YOU DIVORCED OR SEPARATED IN THE
  86. 1630 [153]"LAST 12 MONTHS?":M[178]1:[141]100:T[178]T[171]M[172]2
  87. 1640 [153]"LOADLEFT$AS A CLOSE FAMILY MEMBER (INCLUDING
  88. 1650 PRINT"SPOUSE) DIED IN THE LAST 12 MONTHS?":M=1:GOSUB100:T=T-M
  89. 1660 PRINT"[147][200]AVE YOU HAD A MAJOR ILLNESS OR INJURY
  90. 1670 [153]"IN THE LAST 12 MONTHS?":M[178]1:[141]100:T[178]T[171]M
  91. 1680 [153]"LOADLEFT$AVE YOU EVER BEEN IN JAIL?":M[178]1:[141]100:T[178]T[171]M
  92. 1690 [153]"LOADATNRE YOU PRESENTLY UNEMPLOYED?":M[178]1:[141]100:T[178]T[171]M
  93. 1700 [153]"LOADLEFT$OW MANY OF YOUR IMMEDIATE FAMILY
  94. 1710 PRINT"(PARENTS, BROTHERS, SISTERS) HAVE DIED
  95. 1720 [153]"BEFORE AGE 55?":M[178]0:[141]100:T[178]T[171]4[172]M
  96. 1730 [153]"LOADLEFT$OW MANY OF YOUR MORE DISTANT RELATIVES
  97. 1740 PRINT"(GRANDPARENTS, UNCLES, AUNTS) HAVE DIED
  98. 1750 [153]"BEFORE AGE 55?":M[178]0:[141]100:T[178]T[171]M
  99. 1760 [139]S[178]0[167]1800
  100. 1770 [153]"LOADLEFT$AS YOUR MOTHER OR ANY OF YOUR SISTERS
  101. 1780 PRINT"HAD BREAST CANCER?":M=1:GOSUB100:T=T-M*4
  102. 1800 PRINT"[147][200]OW MANY OF YOUR RELATIVES (PARENTS,
  103. 1810 [153]"BROTHERS, SISTERS, AUNTS, UNCLES,
  104. 1820 PRINT"GRANDPARENTS) HAVE DIABETES?":M=0:GOSUB100:T=T-2*M
  105. 2000 DATA60.7,51.2,41.8,32.4,23.5,15.8,9.8,5.5
  106. 2010 DATA66.5,56.7,47,37.5,28.4,19.9,12.5,6.8
  107. 2020 DATA53.3,44,35.2,26.6,18.9,13,8.7,5
  108. 2030 DATA57.1,47.5,38.1,29.2,21.1,14.6,9.9,5.9
  109. 2040 IFRTHENFORI=1TO16:READX:NEXT
  110. 2050 IFSTHENFORI=1TO8:READX:NEXT
  111. 2060 A%=A/10
  112. 2070 FORI=1TOA%:READX:NEXT:READY
  113. 2072 IFA>80THENX=5:Y=3
  114. 2075 M=(10-A+10*A%)/10
  115. 2080 A%=T/200*(Y+M*(X-Y))+.5
  116. 2090 PRINT"[147][201] PREDICT THAT YOU WILL LIVE TO BE
  117. 2100 [153]""A[170]A%"YEARS OLD.
  118. 2110 GOTO2110
  119.